package JasPerl::ErrorData;

use strict;
use warnings;

sub new {
    my ($class, $throwable, $status_code, $request_uri, $servlet_name) = @_;
    return bless {
        throwable => $throwable,
        status_code => $status_code,
        request_uri => $request_uri,
        servlet_name => $servlet_name
    }, $class;
}

sub get_request_uri {
    return $_[0]->{request_uri};
}

sub get_servlet_name {
    return $_[0]->{servlet_name};
}

sub get_status_code {
    return $_[0]->{status_code};
}

sub get_throwable {
    return $_[0]->{throwable};
}

1;
